home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 2 / PC World Interactive 2 - Eylül 1997.iso / shar / graf / il7try.exe / IL7TRY / ARCHIVE.Z / ProcSets.aip / TEXT / 602 < prev    next >
Text File  |  1997-05-07  |  9KB  |  571 lines
  1. %%BeginProcSet:Adobe_separate 0 0
  2. currentpacking true setpacking
  3. userdict /Adobe_separate 34 dict dup begin put
  4. /initialize
  5. {
  6. /nulldevice
  7.     false setgsproperty
  8. /customcolor
  9.     null setgsproperty
  10. /overprint
  11.     false setgsproperty
  12. /rgbtocmyk
  13.     {
  14.     3
  15.         {
  16.         1 exch sub 3 1 roll
  17.         } repeat
  18.     3 copy 1 4 1 roll
  19.     3
  20.         {
  21.         3 index 2 copy gt
  22.             {
  23.             exch
  24.             } if
  25.         pop 4 1 roll
  26.         } repeat
  27.     pop pop pop
  28.     4 1 roll
  29.     3
  30.         {
  31.         3 index sub
  32.         3 1 roll
  33.         } repeat
  34.     4 -1 roll
  35.     } setgsproperty
  36. userdict /Adobe_separate_vars 22 dict dup begin put
  37. /isDCSFile
  38.     false def
  39. /savestate
  40.     null def
  41. /separation
  42.     /proof def
  43. /setprocessseparate
  44.     Adobe_separate /processseparationset get separation get def
  45. /setcustomseparate
  46.     Adobe_separate /customseparationset get separation get def
  47. /customcolors
  48.     1 dict def
  49. /nullimage
  50.     1 def
  51. /_setgray
  52.     /setgray load def
  53. /_setrgbcolor
  54.     /setrgbcolor load def
  55. /_sethsbcolor
  56.     /sethsbcolor load def
  57. /_setcmykcolor
  58.     /setcmykcolor load def
  59. /_fill
  60.     /fill load def
  61. /_eofill
  62.     /eofill load def
  63. /_stroke
  64.     /stroke load def
  65. /_imagemask
  66.     /imagemask load def
  67. /_image
  68.     /image load def
  69. /_show
  70.     /show load def
  71. /_ashow
  72.     /ashow load def
  73. /_widthshow
  74.     /widthshow load def
  75. /_awidthshow
  76.     /awidthshow load def
  77. /_kshow
  78.     /kshow load def
  79. /densitycustomcolor
  80.     {
  81.     exch
  82.     customcolors null ne
  83.         {
  84.         dup 4 get customcolors exch get dup type /booleantype ne
  85.             {
  86.             exch
  87.             } if
  88.         pop
  89.         } if
  90.     aload pop pop
  91.     4
  92.         {
  93.         4 index mul 4 1 roll
  94.         } repeat
  95.     5 -1 roll pop
  96.     } def
  97. Adobe_separate begin
  98. Adobe_separate
  99.     {
  100.     dup xcheck
  101.         {
  102.         bind
  103.         } if
  104.     pop pop
  105.     } forall
  106. end
  107. end
  108. Adobe_separate begin
  109. } def
  110. /terminate
  111. {
  112. currentdict Adobe_separate eq
  113.     {
  114.  end
  115.     } if
  116. } def
  117. /beginseparate
  118. {
  119. Adobe_separate_vars /savestate save put
  120. Adobe_separate_vars begin
  121. /nullimage
  122.     exch def
  123. dup length dict begin
  124.     {
  125.     dup xcheck exch
  126.     dup type /arraytype eq
  127.         {
  128.         aload pop dup 6 1 roll findcmykcustomcolor
  129.         }
  130.         {
  131.         true
  132.         } ifelse
  133.     3 -1 roll
  134.         {
  135.         cvx
  136.         } if
  137.     def
  138.     } forall
  139. currentdict end
  140. /customcolors
  141.     exch def
  142. /separation
  143.     exch def
  144. /setprocessseparate
  145.     Adobe_separate /processseparationset get separation get def
  146. /setcustomseparate
  147.     Adobe_separate /customseparationset get separation get def
  148. /nulldevice
  149.     false setgsproperty
  150. end
  151. } def
  152. /endseparate
  153. {
  154. Adobe_separate_vars /savestate get restore
  155. } def
  156. /findcustomcolor
  157. {
  158. 0 0 0 1
  159. 5 -1 roll
  160. 5 packedarray
  161. } def
  162. /findgraycustomcolor
  163. {
  164. exch 1 exch sub 0 0 0 4 -1 roll
  165. 5 -1 roll
  166. 5 packedarray
  167. } def
  168. /findrgbcustomcolor
  169. {
  170. 4 1 roll /rgbtocmyk getgsproperty exec
  171. 5 -1 roll
  172. 5 packedarray
  173. } def
  174. /findhsbcustomcolor
  175. {
  176. 4 1 roll
  177. gsave
  178. Adobe_separate_vars /_sethsbcolor get exec
  179. currentrgbcolor
  180. grestore
  181. /rgbtocmyk getgsproperty exec
  182. 5 -1 roll
  183. 5 packedarray
  184. } def
  185. /findcmykcustomcolor
  186. {
  187. 5 packedarray
  188. } def
  189. /setcustomcolor
  190. {
  191. dup type dup /integertype eq exch /realtype eq or
  192.     {
  193.     /customcolor
  194.         null setgsproperty
  195.     Adobe_separate_vars begin
  196.     setcustomseparate
  197.  end
  198.     }
  199.     {
  200.     /customcolor
  201.         exch setgsproperty
  202.     } ifelse
  203. } def
  204. /currentcustomcolor
  205. {
  206. /customcolor getgsproperty
  207. } def
  208. /setoverprint
  209. {
  210. /overprint
  211.     exch setgsproperty
  212. } def
  213. /currentoverprint
  214. {
  215. /overprint getgsproperty
  216. } def
  217. /setrgbtocmyk
  218. {
  219. /rgbtocmyk
  220.     exch setgsproperty
  221. } def
  222. /currentrgbtocmyk
  223. {
  224. /rgbtocmyk getgsproperty
  225. } def
  226. /setgray
  227. {
  228. Adobe_separate_vars begin
  229. /customcolor getgsproperty exch
  230. 1 index null eq
  231.     {
  232.     1 exch sub 0 0 0 4 -1 roll
  233.     setprocessseparate
  234.     }
  235.     {
  236.     1 exch sub
  237.     setcustomseparate
  238.     } ifelse
  239. end
  240. } def
  241. /setrgbcolor
  242. {
  243. Adobe_separate_vars begin
  244. /customcolor getgsproperty 4 1 roll
  245. 3 index null eq
  246.     {
  247.     /rgbtocmyk getgsproperty exec
  248.     setprocessseparate
  249.     }
  250.     {
  251.     _setrgbcolor currentgray 1 exch sub
  252.     setcustomseparate
  253.     } ifelse
  254. end
  255. } def
  256. /sethsbcolor
  257. {
  258. Adobe_separate_vars /_sethsbcolor get exec
  259. currentrgbcolor
  260. setrgbcolor
  261. } def
  262. /setcmykcolor
  263. {
  264. Adobe_separate_vars begin
  265. /customcolor getgsproperty 5 1 roll
  266. 4 index null eq
  267.     {
  268.     setprocessseparate
  269.     }
  270.     {
  271.     _setcmykcolor currentgray 1 exch sub
  272.     setcustomseparate
  273.     } ifelse
  274. end
  275. } def
  276. /setcmybcolor
  277. {
  278. setcmykcolor
  279. } def
  280. currentdict /processseparationset 6 dict dup begin put
  281. /proof
  282. {
  283. _setcmykcolor
  284. pop
  285. } def
  286. /processblack
  287. {
  288.     1 1 index sub _setgray
  289.     
  290.     
  291.     0 eq dup
  292.     {
  293.         pop
  294.         
  295.         3 copy add add 0 ne dup
  296.         {
  297.             pop /overprint getgsproperty
  298.         }
  299.         if
  300.     }
  301.     if        
  302.     /nulldevice exch setgsproperty
  303.     4 { pop } repeat
  304. }
  305. bind def
  306. /processcyan
  307. {
  308.     4 -1 roll processseparationset /processblack get exec
  309. }
  310. bind def
  311. /processmagenta
  312. {
  313.     3 -1 roll processseparationset /processblack get exec
  314. }
  315. bind def
  316. /processyellow
  317. {
  318.     exch processseparationset /processblack get exec
  319. }
  320. bind def
  321. /customcolor
  322. {
  323. /nulldevice /overprint getgsproperty 6 copy pop pop add add add 0 ne and setgsproperty
  324. 1 _setgray
  325. pop pop pop pop pop
  326. } def
  327. currentdict readonly pop end
  328. currentdict /customseparationset 6 dict dup begin put
  329. /proof
  330. {
  331. 1 index 4 get customcolors exch known
  332.     {
  333.     densitycustomcolor
  334.     _setcmykcolor
  335.     false
  336.     }
  337.     {
  338.     pop pop
  339.     1 _setgray
  340.     /overprint getgsproperty
  341.     } ifelse
  342. /nulldevice exch setgsproperty
  343. } def
  344. /processcyan
  345. {
  346. 1 index 4 get customcolors exch known
  347.     {
  348.     1 index 4 get customcolors exch get xcheck
  349.         {
  350.         densitycustomcolor
  351.         3 index 0 eq 1 index 1 eq /overprint getgsproperty or and
  352.             /nulldevice exch setgsproperty
  353.         pop pop pop
  354.         1 exch sub _setgray
  355.         }
  356.         {
  357.         false
  358.             /nulldevice exch setgsproperty
  359.         1 exch sub _setgray
  360.         pop
  361.         } ifelse
  362.     }
  363.     {
  364.     /overprint getgsproperty
  365.         /nulldevice exch setgsproperty
  366.     pop pop
  367.     1 _setgray
  368.     } ifelse
  369. } def
  370. /processmagenta
  371. {
  372. 1 index 4 get customcolors exch known
  373.     {
  374.     1 index 4 get customcolors exch get xcheck
  375.         {
  376.         densitycustomcolor
  377.         2 index 0 eq 1 index 1 eq /overprint getgsproperty or and
  378.             /nulldevice exch setgsproperty
  379.         4 -1 roll pop pop pop
  380.         1 exch sub _setgray
  381.         }
  382.         {
  383.         false
  384.             /nulldevice exch setgsproperty
  385.         1 exch sub _setgray
  386.         pop
  387.         } ifelse
  388.     }
  389.     {
  390.     /overprint getgsproperty
  391.         /nulldevice exch setgsproperty
  392.     pop pop
  393.     1 _setgray
  394.     } ifelse
  395. } def
  396. /processyellow
  397. {
  398. 1 index 4 get customcolors exch known
  399.     {
  400.     1 index 4 get customcolors exch get xcheck
  401.         {
  402.         densitycustomcolor
  403.         1 index 0 eq 1 index 1 eq /overprint getgsproperty or and
  404.             /nulldevice exch setgsproperty
  405.         4 -2 roll pop pop pop
  406.         1 exch sub _setgray
  407.         }
  408.         {
  409.         false
  410.             /nulldevice exch setgsproperty
  411.         1 exch sub _setgray
  412.         pop
  413.         } ifelse
  414.     }
  415.     {
  416.     /overprint getgsproperty
  417.         /nulldevice exch setgsproperty
  418.     pop pop
  419.     1 _setgray
  420.     } ifelse
  421. } def
  422. /processblack
  423. {
  424. 1 index 4 get customcolors exch known
  425.     {
  426.     1 index 4 get customcolors exch get xcheck
  427.         {
  428.         densitycustomcolor
  429.         0 index 0 eq /overprint getgsproperty and
  430.             /nulldevice exch setgsproperty
  431.         4 -3 roll pop pop pop
  432.         1 exch sub _setgray
  433.         }
  434.         {
  435.         false
  436.             /nulldevice exch setgsproperty
  437.         1 exch sub _setgray
  438.         pop
  439.         } ifelse
  440.     }
  441.     {
  442.     /overprint getgsproperty
  443.         /nulldevice exch setgsproperty
  444.     pop pop
  445.     1 _setgray
  446.     } ifelse
  447. } def
  448. /customcolor
  449. {
  450. 1 index 4 get customcolors exch known
  451.     {
  452.     1 index 4 get customcolors exch get xcheck
  453.         {
  454.         /overprint getgsproperty
  455.             /nulldevice exch setgsproperty
  456.         pop pop
  457.         1 _setgray
  458.         }
  459.         {
  460.         false
  461.             /nulldevice exch setgsproperty
  462.         1 exch sub _setgray
  463.         pop
  464.         } ifelse
  465.     }
  466.     {
  467.     /overprint getgsproperty
  468.         /nulldevice exch setgsproperty
  469.     pop pop
  470.     1 _setgray
  471.     } ifelse
  472. } def
  473. currentdict readonly pop end
  474. /fill
  475. {
  476. /nulldevice getgsproperty
  477.     {
  478.     newpath
  479.     }
  480.     {
  481.     Adobe_separate_vars /_fill get exec
  482.     } ifelse
  483. } def
  484. /eofill
  485. {
  486. /nulldevice getgsproperty
  487.     {
  488.     newpath
  489.     }
  490.     {
  491.     Adobe_separate_vars /_eofill get exec
  492.     } ifelse
  493. } def
  494. /stroke
  495. {
  496. /nulldevice getgsproperty
  497.     {
  498.     newpath
  499.     }
  500.     {
  501.     Adobe_separate_vars /_stroke get exec
  502.     } ifelse
  503. } def
  504. /imagemask
  505. {
  506. /nulldevice getgsproperty
  507.     {
  508.     gsave
  509.     nulldevice
  510.     Adobe_separate_vars /_imagemask get exec
  511.     grestore
  512.     }
  513.     {
  514.     Adobe_separate_vars /_imagemask get exec
  515.     } ifelse
  516. } def
  517. /image
  518. {
  519. Adobe_separate_vars /separation get /processblack eq
  520. Adobe_separate_vars /separation get /proof eq or
  521. Adobe_separate_vars /isDCSFile get true eq or
  522.     {
  523.     Adobe_separate_vars /_image get exec
  524.     }
  525.     {
  526.     gsave
  527.     [
  528.     /pop cvx Adobe_separate_vars /nullimage get
  529.     ] cvx settransfer
  530.     Adobe_separate_vars /_image get exec
  531.     grestore
  532.     } ifelse
  533. } def
  534. /show
  535. {
  536. /nulldevice getgsproperty
  537.     {
  538.     stringwidth rmoveto
  539.     }
  540.     {
  541.     Adobe_separate_vars /_show get exec
  542.     } ifelse
  543. } def
  544. /nullExec
  545. {
  546.     Adobe_separate_vars exch get
  547.     /nulldevice getgsproperty
  548.     {
  549.         gsave
  550.             Adobe_separation_vars /_teststrips get currentmatrix
  551.             nulldevice
  552.             setmatrix
  553.             exec
  554.             currentpoint
  555.         grestore
  556.         moveto
  557.     }
  558.     {
  559.         exec
  560.     }
  561.     ifelse
  562. }
  563. def
  564. /ashow { /_ashow nullExec } def
  565. /widthshow { /_widthshow nullExec } def
  566. /awidthshow { /_awidthshow nullExec } def
  567. /kshow { /_kshow nullExec } def
  568. currentdict readonly pop end
  569. setpacking
  570. %%EndProcSet
  571.